Sub muestra_For()
    Dim contador, inicio, final, incremento As Integer
    inicio = 1
    final = 5
    incremento = 1
    For contador = 5 To 1 Step -1
        Debug.Print "Contador : " & contador
    Next contador
End Sub
